Option Strict Off
Option Explicit On

Friend Class help
	Inherits System.Windows.Forms.Form
	
	Private Sub Author_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Author.Click
		Dim Index As Short = Author.GetIndex(eventSender)
    Dim link As String = ""
		Select Case Index
			Case 2
				link = "http://www.angelfire.com/80s/philipsoft"
			Case 6
				link = "mailto:phisakel@yahoo.gr"
			Case 7
				link = "http://www.hungersite.com"
		End Select
    System.Diagnostics.Process.Start(link)
	End Sub
	
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		Me.Close()
	End Sub
	
	Private Sub help_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Dim fname As String
		On Error GoTo notfound
    Dim help_Renamed As String
    'fname = "rules.txt"
    Text1.Text = My.Resources.Rules
    Exit Sub
notfound: 
		MsgBox("Help file not found")
	End Sub
	Private Sub Text1_Enter(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Text1.Enter
		Command1.Focus()
	End Sub
End Class